FILE_LOCATION   =	"/ifs/scratch/c2b2/ip_lab/ddd2124"

setwd(FILE_LOCATION)




#find the respective probabilities.....

BGN <- read.table("BGNMAT.txt",header=F,stringsAsFactors=F)
GCN <- read.table("GCNMAT.txt",header=F,stringsAsFactors=F)
PCN <- read.table("PCNMAT.txt",header=F,stringsAsFactors=F)
SIBN <- read.table("SIBNMAT.txt",header=F,stringsAsFactors=F)
HSIBN <- read.table("HSIBNMAT.txt",header=F,stringsAsFactors=F)


ALLN <- BGN + GCN + PCN + SIBN + HSIBN

write.table(ALLN,"totalN.txt",row.names=F,col.names=F,quote=F)

rm(BGN, GCN, PCN, SIBN, HSIBN, ALLN)

###################

#find the respective probabilities.....

BGL <- read.table("BGLMAT.txt",header=F,stringsAsFactors=F)
GCL <- read.table("GCLMAT.txt",header=F,stringsAsFactors=F)
PCL <- read.table("PCLMAT.txt",header=F,stringsAsFactors=F)
SIBL <- read.table("SIBLMAT.txt",header=F,stringsAsFactors=F)
HSIBL <- read.table("HSIBLMAT.txt",header=F,stringsAsFactors=F)

ALLL <- BGL + GCL + PCL + SIBL + HSIBL

write.table(ALLL,"totalL.txt",row.names=F,col.names=F,quote=F)

rm(BGL, GCL, PCL, SIBL, HSIBL, ALLL)

###################

#find the respective probabilities.....

BGA <- read.table("BGAMAT.txt",header=F,stringsAsFactors=F)
GCA <- read.table("GCAMAT.txt",header=F,stringsAsFactors=F)
PCA <- read.table("PCAMAT.txt",header=F,stringsAsFactors=F)
SIBA <- read.table("SIBAMAT.txt",header=F,stringsAsFactors=F)
HSIBA <- read.table("HSIBAMAT.txt",header=F,stringsAsFactors=F)

ALLA <- BGA + GCA + PCA + SIBA + HSIBA

write.table(ALLA,"totalA.txt",row.names=F,col.names=F,quote=F)

rm(BGA, GCA, PCA, SIBA, HSIBA, ALLA)




